From 45e1bc0cb51daedeba85dc5e075cd496e65eff0b Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Wed, 29 Nov 2000 04:35:50 +0000 Subject: [PATCH] (member-ignore-case): Return the tail of the list who's car matches, like `member', not the matching element itself. --- lisp/subr.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index 99d06e43844..3adad4268aa 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -195,12 +195,9 @@ Unibyte strings are converted to multibyte for comparison." "Like `member', but ignores differences in case and text representation. ELT must be a string. Upper-case and lower-case letters are treated as equal. Unibyte strings are converted to multibyte for comparison." - (let (element) - (while (and list (not element)) - (if (eq t (compare-strings elt 0 nil (car list) 0 nil t)) - (setq element (car list))) - (setq list (cdr list))) - element)) + (while (and list (not (eq t (compare-strings elt 0 nil (car list) 0 nil t)))) + (setq list (cdr list))) + list) ;;;; Keymap support. -- 2.30.2